/ Revista CD Expert 32 / CD Expert nº 32.iso / Unreal T / utdemo338.exe / System / UBrowser.u / UBrowserServerList_UBrowserOpenCW_ScriptText.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 50 22 63 6c 61 73 73 20 |........|P"class |
|00000010| 55 42 72 6f 77 73 65 72 | 4f 70 65 6e 43 57 20 65 |UBrowser|OpenCW e|
|00000020| 78 70 61 6e 64 73 20 55 | 57 69 6e 64 6f 77 44 69 |xpands U|WindowDi|
|00000030| 61 6c 6f 67 43 6c 69 65 | 6e 74 57 69 6e 64 6f 77 |alogClie|ntWindow|
|00000040| 3b 0d 0a 0d 0a 76 61 72 | 20 55 57 69 6e 64 6f 77 |;....var| UWindow|
|00000050| 43 6f 6d 62 6f 43 6f 6e | 74 72 6f 6c 20 4f 70 65 |ComboCon|trol Ope|
|00000060| 6e 43 6f 6d 62 6f 3b 0d | 0a 76 61 72 20 6c 6f 63 |nCombo;.|.var loc|
|00000070| 61 6c 69 7a 65 64 20 73 | 74 72 69 6e 67 09 4f 70 |alized s|tring.Op|
|00000080| 65 6e 54 65 78 74 3b 0d | 0a 76 61 72 20 6c 6f 63 |enText;.|.var loc|
|00000090| 61 6c 69 7a 65 64 20 73 | 74 72 69 6e 67 09 4f 70 |alized s|tring.Op|
|000000a0| 65 6e 48 65 6c 70 3b 0d | 0a 0d 0a 76 61 72 20 63 |enHelp;.|...var c|
|000000b0| 6f 6e 66 69 67 20 73 74 | 72 69 6e 67 09 09 4f 70 |onfig st|ring..Op|
|000000c0| 65 6e 48 69 73 74 6f 72 | 79 5b 31 30 5d 3b 0d 0a |enHistor|y[10];..|
|000000d0| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 43 72 65 61 74 |..functi|on Creat|
|000000e0| 65 64 28 29 0d 0a 7b 0d | 0a 09 6c 6f 63 61 6c 20 |ed()..{.|..local |
|000000f0| 66 6c 6f 61 74 20 45 64 | 69 74 57 69 64 74 68 3b |float Ed|itWidth;|
|00000100| 0d 0a 09 6c 6f 63 61 6c | 20 69 6e 74 20 69 3b 0d |...local| int i;.|
|00000110| 0a 09 6c 6f 63 61 6c 20 | 43 6f 6c 6f 72 20 54 43 |..local |Color TC|
|00000120| 3b 0d 0a 0d 0a 09 53 75 | 70 65 72 2e 43 72 65 61 |;.....Su|per.Crea|
|00000130| 74 65 64 28 29 3b 0d 0a | 0d 0a 09 45 64 69 74 57 |ted();..|...EditW|
|00000140| 69 64 74 68 20 3d 20 57 | 69 6e 57 69 64 74 68 20 |idth = W|inWidth |
|00000150| 2d 20 31 34 30 3b 0d 0a | 09 4f 70 65 6e 43 6f 6d |- 140;..|.OpenCom|
|00000160| 62 6f 20 3d 20 55 57 69 | 6e 64 6f 77 43 6f 6d 62 |bo = UWi|ndowComb|
|00000170| 6f 43 6f 6e 74 72 6f 6c | 28 43 72 65 61 74 65 43 |oControl|(CreateC|
|00000180| 6f 6e 74 72 6f 6c 28 63 | 6c 61 73 73 27 55 57 69 |ontrol(c|lass'UWi|
|00000190| 6e 64 6f 77 43 6f 6d 62 | 6f 43 6f 6e 74 72 6f 6c |ndowComb|oControl|
|000001a0| 27 2c 20 32 30 2c 20 32 | 30 2c 20 45 64 69 74 57 |', 20, 2|0, EditW|
|000001b0| 69 64 74 68 2c 20 31 29 | 29 3b 0d 0a 09 4f 70 65 |idth, 1)|);...Ope|
|000001c0| 6e 43 6f 6d 62 6f 2e 53 | 65 74 54 65 78 74 28 4f |nCombo.S|etText(O|
|000001d0| 70 65 6e 54 65 78 74 29 | 3b 0d 0a 09 4f 70 65 6e |penText)|;...Open|
|000001e0| 43 6f 6d 62 6f 2e 53 65 | 74 48 65 6c 70 54 65 78 |Combo.Se|tHelpTex|
|000001f0| 74 28 4f 70 65 6e 48 65 | 6c 70 29 3b 0d 0a 09 4f |t(OpenHe|lp);...O|
|00000200| 70 65 6e 43 6f 6d 62 6f | 2e 53 65 74 46 6f 6e 74 |penCombo|.SetFont|
|00000210| 28 46 5f 4e 6f 72 6d 61 | 6c 29 3b 0d 0a 09 4f 70 |(F_Norma|l);...Op|
|00000220| 65 6e 43 6f 6d 62 6f 2e | 53 65 74 45 64 69 74 61 |enCombo.|SetEdita|
|00000230| 62 6c 65 28 54 72 75 65 | 29 3b 0d 0a 09 66 6f 72 |ble(True|);...for|
|00000240| 20 28 69 3d 30 3b 20 69 | 3c 31 30 3b 20 69 2b 2b | (i=0; i|<10; i++|
|00000250| 29 0d 0a 09 09 69 66 20 | 28 4f 70 65 6e 48 69 73 |)....if |(OpenHis|
|00000260| 74 6f 72 79 5b 69 5d 20 | 21 3d 20 22 22 29 0d 0a |tory[i] |!= "")..|
|00000270| 09 09 09 4f 70 65 6e 43 | 6f 6d 62 6f 2e 41 64 64 |...OpenC|ombo.Add|
|00000280| 49 74 65 6d 28 4f 70 65 | 6e 48 69 73 74 6f 72 79 |Item(Ope|nHistory|
|00000290| 5b 69 5d 29 3b 0d 0a 7d | 0d 0a 0d 0a 66 75 6e 63 |[i]);..}|....func|
|000002a0| 74 69 6f 6e 20 42 65 66 | 6f 72 65 50 61 69 6e 74 |tion Bef|orePaint|
|000002b0| 28 43 61 6e 76 61 73 20 | 43 2c 20 66 6c 6f 61 74 |(Canvas |C, float|
|000002c0| 20 58 2c 20 66 6c 6f 61 | 74 20 59 29 0d 0a 7b 0d | X, floa|t Y)..{.|
|000002d0| 0a 09 6c 6f 63 61 6c 20 | 66 6c 6f 61 74 20 45 64 |..local |float Ed|
|000002e0| 69 74 57 69 64 74 68 3b | 0d 0a 09 6c 6f 63 61 6c |itWidth;|...local|
|000002f0| 20 66 6c 6f 61 74 20 58 | 4c 2c 20 59 4c 3b 0d 0a | float X|L, YL;..|
|00000300| 0d 0a 09 43 2e 46 6f 6e | 74 20 3d 20 52 6f 6f 74 |...C.Fon|t = Root|
|00000310| 2e 46 6f 6e 74 73 5b 4f | 70 65 6e 43 6f 6d 62 6f |.Fonts[O|penCombo|
|00000320| 2e 46 6f 6e 74 5d 3b 0d | 0a 09 54 65 78 74 53 69 |.Font];.|..TextSi|
|00000330| 7a 65 28 43 2c 20 4f 70 | 65 6e 43 6f 6d 62 6f 2e |ze(C, Op|enCombo.|
|00000340| 54 65 78 74 2c 20 58 4c | 2c 20 59 4c 29 3b 0d 0a |Text, XL|, YL);..|
|00000350| 0d 0a 09 45 64 69 74 57 | 69 64 74 68 20 3d 20 57 |...EditW|idth = W|
|00000360| 69 6e 57 69 64 74 68 20 | 2d 20 35 30 3b 0d 0a 0d |inWidth |- 50;...|
|00000370| 0a 09 4f 70 65 6e 43 6f | 6d 62 6f 2e 57 69 6e 4c |..OpenCo|mbo.WinL|
|00000380| 65 66 74 20 3d 20 28 57 | 69 6e 57 69 64 74 68 20 |eft = (W|inWidth |
|00000390| 2d 20 45 64 69 74 57 69 | 64 74 68 29 20 2f 20 32 |- EditWi|dth) / 2|
|000003a0| 3b 0d 0a 09 4f 70 65 6e | 43 6f 6d 62 6f 2e 57 69 |;...Open|Combo.Wi|
|000003b0| 6e 54 6f 70 20 3d 20 28 | 57 69 6e 48 65 69 67 68 |nTop = (|WinHeigh|
|000003c0| 74 2d 4f 70 65 6e 43 6f | 6d 62 6f 2e 57 69 6e 48 |t-OpenCo|mbo.WinH|
|000003d0| 65 69 67 68 74 29 20 2f | 20 32 3b 0d 0a 09 4f 70 |eight) /| 2;...Op|
|000003e0| 65 6e 43 6f 6d 62 6f 2e | 53 65 74 53 69 7a 65 28 |enCombo.|SetSize(|
|000003f0| 45 64 69 74 57 69 64 74 | 68 2c 20 4f 70 65 6e 43 |EditWidt|h, OpenC|
|00000400| 6f 6d 62 6f 2e 57 69 6e | 48 65 69 67 68 74 29 3b |ombo.Win|Height);|
|00000410| 0d 0a 09 4f 70 65 6e 43 | 6f 6d 62 6f 2e 45 64 69 |...OpenC|ombo.Edi|
|00000420| 74 42 6f 78 57 69 64 74 | 68 20 3d 20 4f 70 65 6e |tBoxWidt|h = Open|
|00000430| 43 6f 6d 62 6f 2e 57 69 | 6e 57 69 64 74 68 20 2d |Combo.Wi|nWidth -|
|00000440| 20 58 4c 20 2d 20 32 30 | 3b 0d 0a 0d 0a 09 53 75 | XL - 20|;.....Su|
|00000450| 70 65 72 2e 42 65 66 6f | 72 65 50 61 69 6e 74 28 |per.Befo|rePaint(|
|00000460| 43 2c 20 58 2c 20 59 29 | 3b 0d 0a 7d 0d 0a 0d 0a |C, X, Y)|;..}....|
|00000470| 66 75 6e 63 74 69 6f 6e | 20 4e 6f 74 69 66 79 28 |function| Notify(|
|00000480| 55 57 69 6e 64 6f 77 44 | 69 61 6c 6f 67 43 6f 6e |UWindowD|ialogCon|
|00000490| 74 72 6f 6c 20 43 2c 20 | 62 79 74 65 20 45 29 0d |trol C, |byte E).|
|000004a0| 0a 7b 0d 0a 09 53 75 70 | 65 72 2e 4e 6f 74 69 66 |.{...Sup|er.Notif|
|000004b0| 79 28 43 2c 20 45 29 3b | 0d 0a 0d 0a 09 69 66 28 |y(C, E);|.....if(|
|000004c0| 28 43 20 3d 3d 20 4f 70 | 65 6e 43 6f 6d 62 6f 20 |(C == Op|enCombo |
|000004d0| 26 26 20 45 20 3d 3d 20 | 44 45 5f 45 6e 74 65 72 |&& E == |DE_Enter|
|000004e0| 50 72 65 73 73 65 64 29 | 20 7c 7c 0d 0a 09 20 20 |Pressed)| ||...  |
|000004f0| 20 28 43 20 3d 3d 20 55 | 42 72 6f 77 73 65 72 4f | (C == U|BrowserO|
|00000500| 70 65 6e 57 69 6e 64 6f | 77 28 50 61 72 65 6e 74 |penWindo|w(Parent|
|00000510| 57 69 6e 64 6f 77 29 2e | 4f 4b 42 75 74 74 6f 6e |Window).|OKButton|
|00000520| 20 26 26 20 45 20 3d 3d | 20 44 45 5f 43 6c 69 63 | && E ==| DE_Clic|
|00000530| 6b 29 29 0d 0a 09 09 4f | 70 65 6e 55 52 4c 28 29 |k))....O|penURL()|
|00000540| 3b 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |;..}....|function|
|00000550| 20 4f 70 65 6e 55 52 4c | 28 29 0d 0a 7b 0d 0a 09 | OpenURL|()..{...|
|00000560| 6c 6f 63 61 6c 20 69 6e | 74 20 69 3b 0d 0a 09 6c |local in|t i;...l|
|00000570| 6f 63 61 6c 20 62 6f 6f | 6c 20 48 69 73 74 6f 72 |ocal boo|l Histor|
|00000580| 79 49 74 65 6d 3b 0d 0a | 09 6c 6f 63 61 6c 20 55 |yItem;..|.local U|
|00000590| 57 69 6e 64 6f 77 43 6f | 6d 62 6f 4c 69 73 74 49 |WindowCo|mboListI|
|000005a0| 74 65 6d 20 49 74 65 6d | 3b 0d 0a 09 6c 6f 63 61 |tem Item|;...loca|
|000005b0| 6c 20 73 74 72 69 6e 67 | 20 55 52 4c 3b 0d 0a 0d |l string| URL;...|
|000005c0| 0a 09 55 52 4c 20 3d 20 | 4f 70 65 6e 43 6f 6d 62 |..URL = |OpenComb|
|000005d0| 6f 2e 47 65 74 56 61 6c | 75 65 28 29 3b 0d 0a 09 |o.GetVal|ue();...|
|000005e0| 69 66 28 55 52 4c 20 3d | 3d 20 22 22 29 0d 0a 09 |if(URL =|= "")...|
|000005f0| 7b 0d 0a 09 09 4f 70 65 | 6e 43 6f 6d 62 6f 2e 42 |{....Ope|nCombo.B|
|00000600| 72 69 6e 67 54 6f 46 72 | 6f 6e 74 28 29 3b 0d 0a |ringToFr|ont();..|
|00000610| 09 09 72 65 74 75 72 6e | 3b 0d 0a 09 7d 0d 0a 09 |..return|;...}...|
|00000620| 0d 0a 09 66 6f 72 20 28 | 69 3d 30 3b 20 69 3c 31 |...for (|i=0; i<1|
|00000630| 30 3b 20 69 2b 2b 29 0d | 0a 09 7b 0d 0a 09 09 69 |0; i++).|..{....i|
|00000640| 66 20 28 4f 70 65 6e 48 | 69 73 74 6f 72 79 5b 69 |f (OpenH|istory[i|
|00000650| 5d 20 7e 3d 20 55 52 4c | 29 0d 0a 09 09 09 48 69 |] ~= URL|).....Hi|
|00000660| 73 74 6f 72 79 49 74 65 | 6d 20 3d 20 54 72 75 65 |storyIte|m = True|
|00000670| 3b 0d 0a 09 7d 0d 0a 09 | 69 66 20 28 21 48 69 73 |;...}...|if (!His|
|00000680| 74 6f 72 79 49 74 65 6d | 29 0d 0a 09 7b 0d 0a 09 |toryItem|)...{...|
|00000690| 09 4f 70 65 6e 43 6f 6d | 62 6f 2e 49 6e 73 65 72 |.OpenCom|bo.Inser|
|000006a0| 74 49 74 65 6d 28 55 52 | 4c 29 3b 0d 0a 09 09 77 |tItem(UR|L);....w|
|000006b0| 68 69 6c 65 28 4f 70 65 | 6e 43 6f 6d 62 6f 2e 4c |hile(Ope|nCombo.L|
|000006c0| 69 73 74 2e 49 74 65 6d | 73 2e 43 6f 75 6e 74 28 |ist.Item|s.Count(|
|000006d0| 29 20 3e 20 31 30 29 0d | 0a 09 09 09 4f 70 65 6e |) > 10).|....Open|
|000006e0| 43 6f 6d 62 6f 2e 4c 69 | 73 74 2e 49 74 65 6d 73 |Combo.Li|st.Items|
|000006f0| 2e 4c 61 73 74 2e 52 65 | 6d 6f 76 65 28 29 3b 0d |.Last.Re|move();.|
|00000700| 0a 0d 0a 09 09 49 74 65 | 6d 20 3d 20 55 57 69 6e |.....Ite|m = UWin|
|00000710| 64 6f 77 43 6f 6d 62 6f | 4c 69 73 74 49 74 65 6d |dowCombo|ListItem|
|00000720| 28 4f 70 65 6e 43 6f 6d | 62 6f 2e 4c 69 73 74 2e |(OpenCom|bo.List.|
|00000730| 49 74 65 6d 73 2e 4e 65 | 78 74 29 3b 0d 0a 09 09 |Items.Ne|xt);....|
|00000740| 66 6f 72 20 28 69 3d 30 | 3b 20 69 3c 31 30 3b 20 |for (i=0|; i<10; |
|00000750| 69 2b 2b 29 0d 0a 09 09 | 7b 0d 0a 09 09 09 69 66 |i++)....|{.....if|
|00000760| 28 49 74 65 6d 20 21 3d | 20 4e 6f 6e 65 29 0d 0a |(Item !=| None)..|
|00000770| 09 09 09 7b 0d 0a 09 09 | 09 09 4f 70 65 6e 48 69 |...{....|..OpenHi|
|00000780| 73 74 6f 72 79 5b 69 5d | 20 3d 20 49 74 65 6d 2e |story[i]| = Item.|
|00000790| 56 61 6c 75 65 3b 0d 0a | 09 09 09 09 49 74 65 6d |Value;..|....Item|
|000007a0| 20 3d 20 55 57 69 6e 64 | 6f 77 43 6f 6d 62 6f 4c | = UWind|owComboL|
|000007b0| 69 73 74 49 74 65 6d 28 | 49 74 65 6d 2e 4e 65 78 |istItem(|Item.Nex|
|000007c0| 74 29 3b 0d 0a 09 09 09 | 7d 0d 0a 09 09 09 65 6c |t);.....|}.....el|
|000007d0| 73 65 0d 0a 09 09 09 09 | 4f 70 65 6e 48 69 73 74 |se......|OpenHist|
|000007e0| 6f 72 79 5b 69 5d 20 3d | 20 22 22 3b 0d 0a 09 09 |ory[i] =| "";....|
|000007f0| 7d 09 09 09 0d 0a 09 7d | 0d 0a 09 53 61 76 65 43 |}......}|...SaveC|
|00000800| 6f 6e 66 69 67 28 29 3b | 0d 0a 0d 0a 09 4f 70 65 |onfig();|.....Ope|
|00000810| 6e 43 6f 6d 62 6f 2e 43 | 6c 65 61 72 56 61 6c 75 |nCombo.C|learValu|
|00000820| 65 28 29 3b 0d 0a 09 47 | 65 74 50 61 72 65 6e 74 |e();...G|etParent|
|00000830| 28 63 6c 61 73 73 27 55 | 57 69 6e 64 6f 77 46 72 |(class'U|WindowFr|
|00000840| 61 6d 65 64 57 69 6e 64 | 6f 77 27 29 2e 43 6c 6f |amedWind|ow').Clo|
|00000850| 73 65 28 29 3b 0d 0a 09 | 55 42 72 6f 77 73 65 72 |se();...|UBrowser|
|00000860| 4d 61 69 6e 57 69 6e 64 | 6f 77 28 50 61 72 65 6e |MainWind|ow(Paren|
|00000870| 74 57 69 6e 64 6f 77 2e | 4f 77 6e 65 72 57 69 6e |tWindow.|OwnerWin|
|00000880| 64 6f 77 29 2e 4f 70 65 | 6e 55 52 4c 28 55 52 4c |dow).Ope|nURL(URL|
|00000890| 29 3b 0d 0a 7d 0d 0a 0d | 0a 00                   |);..}...|..      |
+--------+-------------------------+-------------------------+--------+--------+